home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / macberon.sit / MacOberon 2.4(0) / MacWindows.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1991-10-17  |  3.1 KB  |  57 lines
  1. Syntax10.Scn.Fnt
  2. MODULE MacWindows;    (*Macintosh OS Interface Module for MacOberon 2.2, Michael Franz, 9.10.91*)
  3.     IMPORT
  4.         TY:= MacTypes, QD:= MacQuickDraw;
  5.     CONST
  6.         (* Window Kind *)
  7.             dialogKind*= 2;    userKind*= 8;
  8.         (* FindWindow Result Codes *)
  9.             inDesk*= 0; inMenuBar*= 1; inSysWindow*= 2; inContent*= 3; inDrag*= 4;
  10.             inGrow*= 5; inGoAway*= 6; inZoomIn*= 7; inZoomOut*= 8;
  11.     TYPE
  12.         WindowPtr*= POINTER- TO WindowRecord;
  13.         WindowRecord*= RECORD
  14.             (QD.GrafPort)
  15.             windowKind*: INTEGER;
  16.             visible*, hilited, goAwayFlag, spareFlag: BOOLEAN;
  17.             strucRgn, contRgn, updateRgn: QD.RgnHandle;
  18.             windowDefProc: TY.ProcHandle;
  19.             dataHandle: TY.Handle;
  20.             titleHandle*: TY.StringHandle;
  21.             titleWidth: INTEGER;
  22.             controlList: TY.Handle;
  23.             nextWindow: WindowPtr;
  24.             windowPic: QD.PicHandle;
  25.             refCon*: LONGINT
  26.         END;
  27.     PROCEDURE- NewWindow*(wStorage: TY.Ptr; boundsRect: TY.Rect; title: TY.Str255; visible: BOOLEAN; theProc: INTEGER; behind: WindowPtr; goAwayFlag: BOOLEAN; refCon: LONGINT): WindowPtr 0A9H, 013H;
  28.     PROCEDURE- GetNewWindow*(windowID: INTEGER; wStorage: TY.Ptr; behind: WindowPtr): WindowPtr 0A9H, 0BDH;
  29.     PROCEDURE- CloseWindow*(theWindow: WindowPtr) 0A9H, 02DH;
  30.     PROCEDURE- DisposeWindow*(theWindow: WindowPtr) 0A9H, 014H;
  31.     PROCEDURE- ShowWindow*(theWindow: WindowPtr) 0A9H, 015H;
  32.     PROCEDURE- HideWindow*(theWindow: WindowPtr) 0A9H, 016H;
  33.     PROCEDURE- FrontWindow*(): WindowPtr 0A9H, 024H;
  34.     PROCEDURE- SelectWindow*(theWindow: WindowPtr) 0A9H, 01FH;
  35.     PROCEDURE- BringToFront*(theWindow: WindowPtr) 0A9H, 020H;
  36.     PROCEDURE- SendBehind*(theWindow, behindWindow: WindowPtr) 0A9H, 021H;
  37.     PROCEDURE- MoveWindow*(theWindow: WindowPtr; hGlobal, vGlobal: INTEGER; front: BOOLEAN) 0A9H, 01BH;
  38.     PROCEDURE- DragWindow*(theWindow: WindowPtr; startPt: TY.Point; boundsRect: TY.Rect) 0A9H, 025H;
  39.     PROCEDURE- SizeWindow*(theWindow: WindowPtr; w, h: INTEGER; fUpdate: BOOLEAN) 0A9H, 01DH;
  40.     PROCEDURE- SizeWindow2*(theWindow: WindowPtr; wh: LONGINT; fUpdate: BOOLEAN) 0A9H, 01DH;
  41.     PROCEDURE- GrowWindow*(theWindow: WindowPtr; startPt: TY.Point; bBox: TY.Rect): LONGINT 0A9H, 02BH;
  42.     PROCEDURE- ZoomWindow*(theWindow: WindowPtr; partCode: INTEGER; front: BOOLEAN) 0A8H, 03AH;
  43.     PROCEDURE- FindWindow*(thePoint: TY.Point; VAR theWindow: WindowPtr): INTEGER 0A9H, 02CH;
  44.     PROCEDURE- ValidRect*(goodRect: TY.Rect) 0A9H, 02AH;
  45.     PROCEDURE- InvalRect*(badRect: TY.Rect) 0A9H, 028H;
  46.     PROCEDURE- BeginUpdate*(theWindow: WindowPtr) 0A9H, 022H;
  47.     PROCEDURE- EndUpdate*(theWindow: WindowPtr) 0A9H, 023H;
  48.     PROCEDURE- SetWRefCon*(theWindow: WindowPtr; data: LONGINT) 0A9H, 018H;
  49.     PROCEDURE- GetWRefCon*(theWindow: WindowPtr): LONGINT 0A9H, 017H;
  50.     PROCEDURE- SetWTitle*(theWindow: WindowPtr; title: TY.Str255) 0A9H, 01AH;
  51.     PROCEDURE- GetWTitle*(theWindow: WindowPtr; VAR title: TY.Str255) 0A9H, 019H;
  52.     PROCEDURE- TrackGoAway*(theWindow: WindowPtr; thePt: TY.Point): BOOLEAN 0A9H, 01EH;
  53.     PROCEDURE- TrackBox*(theWindow: WindowPtr; thePt: TY.Point; partCode: INTEGER): BOOLEAN 0A8H, 03BH;
  54.     PROCEDURE- DrawGrowIcon*(theWindow: WindowPtr) 0A9H, 004H;
  55.     PROCEDURE- DrawControls*(theWindow: WindowPtr) 0A9H, 069H;
  56. END MacWindows.
  57.